home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
PWAPCP02.ZIP
/
HAPPPAGE
/
HPREG.PPE
(
.txt
)
< prev
Wrap
PCBoard Programming Language Executable
|
1995-11-15
|
3KB
|
189 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
;------------------------------------------------------------------------------
STRING004 = ReadLine(PCBDat(), 2)
Newlines 1
PrintLn " HappydayPage! V1.0ß SysWare (C)"
PrintLn " Registered to: @BOARDNAME@"
Newlines 1
PrintLn "@X01▓▓▒░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓░▒▓█░▒▓█░▓▒█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓▒▓"
PrintLn "█ @X02Why are you pageing the happy Sysop! Why? @X02Please tell me! @X01█"
PrintLn "@X01███████████████████████████████████████████████████████████████"
PrintLn 4
PrintLn " The last caller was: @LASTCALLERSYSTEM@"
PrintLn " YOU are connected at: @CARRIER@"
PrintLn "░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒█@X07"
InputStr "@X0F> _", STRING003, 4, 70, Mask_Ascii(), 0
If (STRING003 == "") Then
Newlines 2
PrintLn "@X0DO@X05hh@X0D W@X05ell, @X0Dm@X05ust @X0Dn@X05ot @X0Dh@X05ave @X0Db@X05een @X0DI@X05mportant"
PrintLn "@X0ATell the sysop how (Happy) you are that he registered this ppe."
Delay 100
Newline
Else
If (STRING003 == "46137289725090") Then
STRING006 = ReadLine(PCBDat(), 52)
If (STRING006 == "PORT1F") Then
STRING006 = "COM1:"
Endif
If (STRING006 == "PORT2F") Then
STRING006 = "COM2:"
Endif
If (STRING006 == "PORT3F") Then
STRING006 = "COM3:"
Endif
If (STRING006 == "PORT4F") Then
STRING006 = "COM4:"
Endif
STRING001 = "DOORWAY.EXE"
STRING002 = STRING006 + " /T:911 /B:MZ /V:D /C:DOS"
Shell 0, INTEGER001, STRING001, STRING002
Endif
Newlines 2
Print "@X03Calling the Happy Operator to chat! - "
For INTEGER002 = 1 To 8
Sound 213
Print "@X08z"
Delay 7
Sound 453
Print "@X07Z"
Sound 233
Delay 7
Sound 453
Print "@X0Fz"
Sound 213
Print "@X08z"
Delay 7
Sound 453
Print "@X07Z"
Sound 233
Delay 7
STRING005 = Inkey()
If (Asc(STRING005) == 3) Then
Newlines 2
PrintLn "@X0FWhy did you stop? Why ? Why? And I was so happy you!"
PrintLn "Please tell your sysop to Register"
Delay 100
Newline
Goto LABEL001
Endif
If (KInkey() == " ") Then
Chat
Goto LABEL001
Endif
Delay 4
Next
Print "@X08."
Newlines 2
For INTEGER002 = 1 To 3
SPrint Chr(7)
Delay 5
Next
Newline
PrintLn "@X09" + STRING004 + "@X0F has @X07been @X08paged ..."
PrintLn "@X0FYou may @X07continue using @X08the system"
PrintLn "@X0FDon't worry be happy!."
Endif
:LABEL001
Sound 432
Delay 1
Sound 321
Delay 3
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 15 Goto
; 13 Let
; 7 Print
; 16 PrintLn
; 10 If
; 1 InputStr
; 10 Delay
; 3 Newline
; 6 Newlines
; 1 Shell
; 9 Sound
; 1 Chat
; 1 SPrint
;
;
; ■ Functions used :
;
; 5 +
; 8 ==
; 2 <
; 2 <=
; 4 >=
; 10 !
; 4 &&
; 2 ||
; 1 Chr()
; 1 Asc()
; 1 Inkey()
; 1 Mask_Ascii()
; 2 PCBDat()
; 2 ReadLine()
; 1 KInkey()
;
;------------------------------------------------------------------------------
;
; Analysis flags : Sd
;
; S - Shell to DOS ■ 5
; This may be normal if the PPE need to execute an external command,
; but may be actually anything... nasty (formating HD, rebooting,...)
; or usefull (sorting, maintenance,...). Check!
; ■ Search for : SHELL
;
; d - Access PCBOARD.DAT ■ 2
; Program gets the full pathname to PCBOARD.DAT, this may be usefull
; for many PPE so they can find various informations on the system
; (system paths, max number of lines in messages, ...) but it may also
; be a way to gather vital informations.
; ■ Search for : PCBDAT()
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 2 For/Next
; 0 While/EndWhile
; 8 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------